function ValueResult=checkAffiliationEditor(ValueAffiliationAuthor,ValueAffiliationEditor)

TestTemp=0;
n1=1;
while n1<=size(ValueAffiliationEditor,2)&&TestTemp==0
    ValueAffiliationEditorTemp=ValueAffiliationEditor{1,n1};
    if size(ValueAffiliationAuthor,2)>=size(ValueAffiliationEditorTemp,2)
        n2=1;
        while n2<=size(ValueAffiliationAuthor,2)-size(ValueAffiliationEditorTemp,2)+1&&TestTemp==0
            if strcmpi(ValueAffiliationAuthor(1,n2:n2+size(ValueAffiliationEditorTemp,2)-1),ValueAffiliationEditorTemp)==1
                TestTemp=1;
            else
                n2=n2+1;
            end
        end
    end
    n1=n1+1;
end
ValueResult=TestTemp;
        